10 REM ********************************
20 REM **                            **
30 REM **    REL.FIL.MANAGER V2.0    **
40 REM **                            **
50 REM **  RELATIVE  FILE  MANAGER   **
60 REM **  RELATIVE  FILE  MANAGER   **
70 REM **                            **
80 REM ** THIS IS A MODIFIED VERSION **
90 REM ** OF REL.EXPER.V3.4 THAT WILL**
100 REM**ALLOW THE USER TO DEFINE HIS**
110 REM** OWN # OF FIELDS AND THIER  **
120 REM** LENGTH AND TITLE.POWER TO  **
130 REM**   US.  JAM NOVEMBER 1983   **
140 REM********************************
150 DIMAA$(500),N%(500):POKE53281,0:PRINT""CHR$(14):POKE650,128
160 NM$="":GOSUB10420:IFPEEK(49152)=76ANDPEEK(49257)=173THEN200
170 POKE646,PEEK(53281)
180 PRINT"NEW":PRINT"LOAD"CHR$(34)"REL.FILE.BOOTER"CHR$(34)",8"
190 PRINT"RUN[145][145][145][145][145][145][145][145][145][145][145][145][145][145]":POKE198,3:POKE631,13:POKE632,13:POKE633,13:END
200 PRINT" [206][207][212][197]: [201]N ALL CASES THROUGHOUT THIS"
210 PRINT"     PROGRAM, TYPING THE RETURN KEY
220 [153]"     WITH  NO  KEYBOARD  ENTRY WILL
230 PRINT"     ACT AS AN ESCAPE FROM WHATEVER
240 [153]"     YOU ARE DOING.
250 PRINT" [208]UT A DISK FOR RELATIVE FILES           IN THE DRIVE."
260 IFPEEK(830)<>32THENGOSUB5010
270 PRINT"[157]";:GOSUB10640:GOSUB10420
280 OPEN1,8,15,"I":R$=CHR$(13):NM$=""
290 B=17:Z$="":PRINT" [196]O YOU WANT TO CREATE A BRAND NEW":GOSUB10470:GOSUB10480
300 IFZ$<>"Q"THEN340
310 PRINT" [196]O YOU WANT TO QUIT";:Z$="":INPUTZ$:B=22:GOSUB10480
320 IFZ$="N"THENGOSUB10420:GOTO290
330 CLOSE2:CLOSE1:END
340 IFZ$="Y"THEN560
350 PRINT" [215]HAT IS THE NAME OF YOUR":GOSUB10470
360 NM$=Z$:Z=LEN(NM$):IFNM$=""THEN310
370 IFZ>15THENGOSUB10420:PRINT" [198]ILE NAME TOO LONG.":GOTO290
380 MN$=NM$:IFZ>6THENMN$=LEFT$(NM$,6)
390 OPEN2,8,3," "+NM$:GOSUB10010:REM DOES FILE EXIST
400 CLOSE6:OPEN6,8,7," "+MN$+"/KEY,S,R":INPUT#6,FLDS,DF,PO%:GOSUB10010
410 DF%=253
430 GOSUB10420:PRINT" "NM$"[146] HAS "FLDS"[146]FIELDS CREATED
440 [153]" AND A RECORD LENGTH OF "DF"WAITCHARACTERS."
450 [153]" ASCRIGHT$VAL(null)STR$CLOSE#"[163]12)"(null)RIGHT$(null)(null)VAL"[163]27)"LENLEFT$ATN(null). (null)VAL(null)CHR$(null)LEFT$"
460 [153]" USRUSRUSRUSRUSRUSRUSR"[163]12)"USRUSRUSRUSRUSR"[163]27)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
470 [129]I[178]1[164]FLDS:[132]6,CH(I),CH$(I)
480 [153][163]3)I[163]11)CH$(I)[163]32)CH(I)
490 [130]I:[160]6
500 [139]FX1%[178]9[167][153]"":[141]10640:[141]10420:[153]"":[137]750
510 [141]10100
520 [159]6,8,7," "[170]MN$[170]"/SORT KEY,S,R":[141]10010:[129]I[178]1[164]LO:[132]6,N%(I):[130]
530 [153]"":[141]10640:[160]6
540 [137]1360
550 [143] ******* CREATE NEW FILE *******
560 [153]" (null)HAT DO YOU WANT TO CALL YOUR":[141]10470
570 NM$[178]Z$:Z[178][195](NM$):[139]NM$[178]""[167]310
580 [139]Z[177]15[167][141]10420:[153]" ASCILE NAME TOO LONG.":[137]560
590 [160]2:[159]2,8,3," "[170]NM$:[132]1,E,E$,C,D:[139]E[178]62[167]640
600 [153]" (null)HAT FILE NAME ALREADY EXISTS.
610 Z$="":INPUT" [196]O YOU WANT TO WRITE OVER IT ";Z$
620 B=32
630 GOSUB10480:IFZ$="Q"ORZ$="N"THENGOSUB10420:GOTO560
640 MN$=NM$:IFZ>6THENMN$=LEFT$(NM$,6)
650 IFE=62THENZ$="":GOTO700
660 Z$="":PRINT" [196]O YOU WANT TO KEEP THE FIELD TITLES
670 [153]" AND THEIR CHARACTER LENGTHS THE SAME
680 PRINT" AS THEY WERE IN THE OLD "NM$"[146]";:INPUTZ$:B=LEN(NM$)+26:GOSUB10480
690 IFZ$="Q"THENGOSUB10420:CLOSE2:GOTO290
700 CLOSE2:PRINT#1,"S: "+NM$
710 IFZ$="Y"THENFX1%=9:GOTO730
720 PRINT#1,"S: "+MN$+"/KEY,S, "
730 PRINT#1,"S: "+MN$+"/SORT KEY,S, "
740 IFFX1%=9THEN400
750 PRINT" [200]OW MANY RECORDS LONG":PRINT" WILL "NM$;:INPUT" BE ";LO
760 IFLO<1ORLO>500THENGOSUB10420:GOTO750
770 IFFX1%<>9THEN790
780 PRINT" [195]REATING FILES ...":GOTO1280
790 GOSUB10420:PRINT" [200]OW MANY FIELDS (9 MAX) WILL EACH":PO%=1:FLDS=0
800 INPUT" RECORD HAVE ";FLDS:IFFLDS<1ORFLDS>9THENPRINT"[145][145]":GOTO790
810 FORI=1TOFLDS:PRINT" [197]NTER THE TITLE FOR FIELD #"I
820 CH$(I)="":INPUT" (20 CHARACTERS MAX) ";CH$(I)
830 IFCH$(I)=""ORLEN(CH$(I))>20ORLEN(CH$(I))<1THENGOSUB10420:GOTO810
840 IFI=6THENGOSUB10420
850 IFLEN(CH$(I))>PO%THENPO%=LEN(CH$(I))
860 NEXTI
870 GOSUB10420:PRINT" [212]HE FOLLOWING ARE RECORD FIELD TITLES;"
880 FORI=1TOFLDS:PRINT" [198]IELD #"ITAB(PO%+2)CH$(I):NEXTI
890 B=34:Z$=""
900 INPUT" [196]O YOU WANT TO MAKE ANY CHANGES";Z$:GOSUB10480
910 IFZ$="Q"THENPRINT"[145][145][145]":GOTO900
920 IFZ$="N"THENGOSUB10420:GOTO1000
930 GOSUB10420
940 INPUT" [215]HICH FIELD ";Z:IFZ<1ORZ>FLDSTHEN870
950 PRINT" [197]NTER THE TITLE FOR FIELD #"Z
960 INPUT" (20 CHARACTERS MAX) ";CH$(Z)
970 IFCH$(Z)=""ORLEN(CH$(Z))>20ORLEN(CH$(Z))<1THENCH(Z)=" "
980 IFLEN(CH$(Z))>PO%THENPO%=LEN(CH$(Z))
990 GOTO870
1000 PRINT" [206]OTE: [207]NLY 240 CHARACTERS TOTAL FOR ":PRINT" ALL FIELDS ALLOWED.
1010 DF[178]0:[129]I[178]1[164]FLDS:[153]" VALNTER THE # OF CHARACTERS
1020 PRINT" FOR FIELD #"I"[146]";:INPUTCH(I)
1030 IFCH(I)>240-FLDSORCH(I)<1THENGOSUB10420:GOTO1000
1040 IFI<>6THEN1070
1050 GOSUB10420:PRINT" [197]NTER THE # OF CHARACTERS"
1060 PRINT" FOR FIELD #"I"[146] "CH(I)
1070 DF=DF+CH(I):PRINTTAB(28)"[145][212]OTAL="DF:IFDF<241THEN1090
1080 GOSUB10420:PRINT" [195]HARACTER TOTAL TOO GREAT.":GOTO1000
1090 NEXTI
1100 GOSUB10420:PRINT" [212]HE FOLLOWING ARE RECORD FIELD":PRINT" CHARACTER LENGTHS;
1110 DF[178]0:[129]I[178]1[164]FLDS:[153]" ASCIELD #"I[163]18)CH(I)
1120 DF[178]DF[170]CH(I):[153][163]28)"ON(null)UM="DF:[139]DF[177]243[167]1080
1130 [139]I[178]FLDS[167][153][163]28)"ON(null)OTAL="DF
1140 [130]I:B[178]34:Z$[178]""
1150 Z$[178]"":[133]" STR$O YOU WANT TO MAKE ANY CHANGES";Z$:[141]10480
1160 [139]Z$[178]"Q"[167][153]"ONONON":[137]1150
1170 [139]Z$[178]"N"[167]1240
1180 [141]10420
1190 Z[178]0:[133]" (null)HICH FIELD ";Z:[139]Z[179]1[176]Z[177]FLDS[167]1100
1200 DF[178]0:[129]I[178]1[164]FLDS:[153]" VALNTER THE # OF CHARACTERS
1210 PRINT" FOR FIELD #"Z"[146]";:INPUTCH(Z)
1220 IFCH(Z)>235ORCH(Z)<1THENCH(Z)=1
1230 GOTO1100
1240 GOSUB10420:PRINT" [195]REATING FILES....."
1250 CLOSE6:OPEN6,8,7," "+MN$+"/KEY,S,W":PRINT#6,FLDS;R$;DF;R$;PO%;R$;
1260 FORI=1TOFLDS:PRINT#6,CH(I);R$;CH$(I);R$;:NEXTI:CLOSE6
1270 FX1%=0
1280 OPEN6,8,7," "+MN$+"/SORT KEY,S,W":FORI=1TOLO:N%(I)=I
1290 PRINT#6,I;R$;:NEXTI:CLOSE6
1300 DF%=253
1320 CLOSE2:OPEN2,8,3," "+NM$+",L,"+CHR$(DF%)
1330 W1=1:W3=0:GOSUB10190:O$="EMPTY":FORI=2TOLO+1:R1=I:GOSUB10080
1340 X=1:GOSUB10270:PRINT" [210][197][195][207][210][196] "I-1"[146] [195][210][197][193][212][197][196].[145][145][145]":NEXTI
1350 IFFX1%=9THENFX1%=0
1360 GOSUB10420
1370 PRINT" [207]KAY, WHAT OPERATION DID YOU WANT
1380 [153]" TO PERFORM ?"
1390 [153]"  (null)RITE     (W)  ?"
1400 [153]"  (null)EAD      (R)  ?"
1410 [153]"  (null)PDATE    (U)  ?"
1420 [153]"  (null)ODIFY    (M)  ?"
1430 [153]"  (null)EARCH    (S)  ?"
1440 [153]"  (null)ORT      (SO) ?"
1450 [153]"  STR$ELETE    (DE) ?"
1460 [153]"  (null)ESTART   (RE) ?"
1470 [153]"  (null)RINT     (P)  ?"
1480 [153]"  ATNDD ON    (A)  ?"
1490 [153]"  LENOPY      (C)  ?"
1500 [153]"  STR$IRECTORY (D)  ?"
1510 [153]"  VALND       (E)  ?"
1520 L$[178]"":[133]" RIGHT$NPUT A LETTER";L$
1530 [139]L$[178]""[167][153]"ONONON":[137]1520
1540 [139]L$[178]"W"[167]1720
1550 [139]L$[178]"R"[167]2160
1560 [139]L$[178]"U"[167]1990
1570 [139]L$[178]"M"[167]2380
1580 [139]L$[178]"S"[167]2750
1590 [139]L$[178]"SO"[167]3500
1600 [139]L$[178]"DE"[167]3930
1610 [139]L$[178]"RE"[167]NM$[178]"":[141]10420:[141]10190:[160]2:[160]1:[137]280
1620 [139]L$[178]"P"[167]4390
1630 [139]L$[178]"A"[167]4790
1640 [139]L$[178]"C"[167]4100
1650 [139]L$[178]"D"[167]4990
1660 [139]L$[178]"E"[167][141]10190:[160]2:[160]1:[128]
1670 [141]10420:[153]" (null)ERY FUNNY HA-HA.":[137]1370
1680 [143] ******************************
1690 [143] * THIS SECTION WRITES RECORDS*
1700 [143] * ON THE DISK. WRITE ON!     *
1710 [143] ******************************
1720 [141]10540:[141]10120:[141]10160
1730 W2[178]W1:W1$[178]"0":[133]" WRITE TO (0=QUIT) ";W1$:W1[178][197](W1$)
1740 [139]W1[179][178]0[167]W1[178]W2:[137]1360
1750 I[178]0:[141]10560:[139]I[179][177]99[167]1770
1760 [141]10540:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]1730
1770 R1[178]N%(W1)[170]1:[141]10080
1780 X[178]1:[141]10230:[139]O$[178]"EMPTY"[167]1820
1790 [153]" (null)ECORD # "W1"WAITALREADY CONTAINS DATA.":Z$[178]""
1800 [153]" STR$O YOU WANT TO WRITE OVER IT ";:[133]Z$:B[178]32:[141]10480
1810 [139]Z$[178]"Q"[176]Z$[178]"N"[167]W1[178]W2:[141]10540:[141]10120:[141]10160:[137]1730
1820 [141]10540:[141]10120:[153]" (null)ECORD #"W1"WAIT"
1830 [129]J[178]1[164]FLDS:[153]" "CH$(J)[163]PO%[170]2);:OO$(J)[178]"":[133]OO$(J)
1840 [139]OO$(J)[178]""[167]OO$(J)[178]" "
1850 [139][195](OO$(J))[177]CH(J)[167]OO$(J)[178][200](OO$(J),CH(J))
1860 [130]J
1870 [141]10540:[153]" (null)ECORD #"W1"WAIT"
1880 [153]"":[129]I[178]1[164]FLDS:[153]" "CH$(I)[163]PO%[170]3)OO$(I):[130]I
1890 Z$[178]"":[133]" RIGHT$S THIS RIGHT (Q=QUIT)";Z$:[139]Z$[178]"Q"[167]Z$[178]"":[137]1910
1900 [139]Z$[178]""[167]Z$[178]"Y"
1910 B[178]25:[141]10480:[139]Z$[178]"N"[167]1820
1920 [139]Z$[178]"Q"[167][141]10540:W1[178]W2:[141]10120:[141]10160:[137]1730
1930 [141]10380:[160]2:W3[178]W1:[159]2,8,3," "[170]NM$[170]",L,"[170][199](DF%):[137]1720
1940 [143]******************************
1950 [143]* THIS IS THE UPDATE SECTION *
1960 [143]* THAT TELLS CLOWN WHICH     *
1970 [143]* RECORDS ARE FULL.          *
1980 [143]******************************
1990 [141]10600:[129]T[178]1[164]LO:R1[178]N%(T)[170]1:[141]10080
2000 X[178]1:[141]10230
2010 [153]" (null)ECORD # "T"WAIT",:[139]O$[179][177]"EMPTY"[167][153]"FULL":[137]2030
2020 [153]O$
2030 [139]T[173]20[179][177][181](T[173]20)[167]2060
2040 [153]"     (null)PACE PEEKAR STOPS LISTING.ON":[141]10640
2050 [141]10600:[139]A$[178][199](32)[167]2070
2060 [130]T
2070 [153]" (null)HE LAST RECORD WORKED ON WAS ";
2080 [139]W3[178]0[167][153]"NONE.":[137]2100
2090 [153]W1
2100 [153]"":[141]10640:[137]1360
2110 [143]******************************
2120 [143]* THE SECTION READS THE      *
2130 [143]* REQUIRED RECORDS FROM THE  *
2140 [143]* DISK.  READ OFF            *
2150 [143]******************************
2160 [141]10620:[141]10120:[141]10160
2170 W2[178]W1:W1$[178]"0":[153]" READ (0=QUIT) ";:[133]W1$:W1[178][197](W1$)
2180 I[178]0:[141]10560:[139]I[179][177]99[167]2200
2190 I[178]0:[141]10620:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]2170
2200 [139]W1[179][178]0[167]W1[178]W2:[137]1360
2210 R1[178]N%(W1)[170]1:[141]10080
2220 X[178]1:[141]10230:[139]O$[179][177]"EMPTY"[167]2250
2230 [141]10620:[153]" (null)ECORD # "W1"WAIT IS "O$"WAIT":W1[178]W2
2240 [141]10120:[141]10160:[137]2170
2250 [141]10620:[153]" (null)ECORD #"W1"WAIT"
2260 [141]10310
2270 [129]I[178]1[164]FLDS:[153]" "CH$(I)[163]PO%[170]3)OO$(I):[130]I
2280 [141]10160:[137]2170
2290 [143]*******************************
2300 [143]* THIS SECTION WILL EDIT OUR  *
2310 [143]* SAVED DATA BY READING IT    *
2320 [143]* INTO AN ARRAY, ASKING WHAT  *
2330 [143]* CHANGES CLOWN WANTS TO MAKE,*
2340 [143]* MODIFYING THE ARRAY THEN    *
2350 [143]* SAVEING THE MODIFIED ARRAY  *
2360 [143]* BACK ONTO THE DISK.         *
2370 [143]*******************************
2380 [141]10680:[141]10120:[141]10160
2390 W2[178]W1:W1$[178]"0":[133]" MODIFY (0=QUIT) ";W1$:W1[178][197](W1$)
2400 I[178]0:[141]10560:[139]I[179][177]99[167]2420
2410 I[178]0:[141]10680:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]2390
2420 [139]W1[179][178]0[167]W1[178]W2:[137]1360
2430 R1[178]N%(W1)[170]1:[141]10080
2440 [141]10310:[139]OO$(I)[179][177]"EMPTY"[167]2470
2450 [141]10680:[153]" (null)ECORD # "W1"WAIT IS "OO$(I)"WAIT":W1[178]W2
2460 [141]10120:[141]10160:[137]2390
2470 [141]10680:[141]10120:[153]" (null)ECORD #"W1"WAIT"
2480 [153]" (null)HICH OF THE FOLLOWING DO"
2490 [153]" YOU WANT TO MODIFY ?":[129]I[178]1[164]FLDS:[153]" "I") "CH$(I):[130]
2500 [153]" "FLDS[170]1") (null)(null) (null)VAL(null)(null)ATN(null)(null)"
2510 Z$[178]"":[133]" VALNTER A NUMBER ";Z$:[139]Z$[178]""[167][153]"ONONON":[137]2510
2520 Z[178][197](Z$):[139]Z[179]1[176]Z[177]FLDS[170]1[167]2470
2530 [139]Z[178]FLDS[170]1[167]W1[178]W2:[137]2380
2540 [141]10680
2550 [153]" (null)HE OLD ";CH$(Z);" IS ";OO$(Z)" ."
2560 [153]" STR$O YOU WANT TO CHANGE IT";:[133]Z$:B[178]27:[141]10480
2570 [139]Z$[178]"N"[176]Z$[178]"Q"[167]2470
2580 O$[178]"":[153]" VALNTER NEW ";CH$(Z);[166]2);:[133]O$
2590 [139]O$[178]""[167][153]"ON":[137]2580
2600 [139][195](O$)[177]CH(Z)[167]O$[178][200](O$,CH(Z))
2610 OO$(Z)[178]O$
2620 Z$[178]"":[133]" ATNNY MORE CHANGES TO THIS RECORD ";Z$:B[178]35:[141]10480
2630 [139]Z$[178]"Y"[176]Z$[178]"Q"[167]2470
2640 [141]10380:[137]2380
2650 [143]*******************************
2660 [143]* THIS SECTION WILL SEARCH OUR*
2670 [143]* SAVED DATA BY WHAT EVER     *
2680 [143]* CATAGORY CLOWN WANTS. ONCE  *
2690 [143]* THE SEARCH DATA IS FOUND    *
2700 [143]* CLOWN IS ASKED TO VERIFY    *
2710 [143]* THAT THIS IS WHAT HE WANTED *
2720 [143]* THEN IS TOLD WHAT RECORD    *
2730 [143]* HIS DATA IS CONTAINED IN.   *
2740 [143]*******************************
2750 [141]10700:[141]10120
2760 [153]" (null)LEASE ENTER THE CATAGORY
2770 PRINT" WOULD LIKE TO SEARCH ;"
2780 FORI=1TOFLDS:PRINT" "I") "CH$(I):NEXT
2790 PRINT" "FLDS+1") [212][207] [210][197][211][212][193][210][212]"
2800 PRINT" "FLDS+2") [201][206][211][212][210][213][195][212][201][207][206][211]"
2810 Z$="":INPUT" [197]NTER A NUMBER ";Z$:IFZ$=""THENPRINT"[145][145][145]":GOTO2810
2820 Z=VAL(Z$):IFZ<1ORZ>FLDS+2THENPRINT"[145][145][145]":GOTO2810
2830 IFZ=FLDS+1THEN1360
2840 IFZ=FLDS+2THEN3210
2850 FX1=0:GOSUB10700
2860 PRINT" [208]LEASE ENTER THE "CH$(Z)
2870 PRINT" YOU WANTED TO SEARCH THE
2880 [133]" RECORDS FOR ";SRCH$
2890 RIG$[178]SRCH$
2900 [139][200](SRCH$,1)[179][177]"*"[167]2930
2910 LN[178][195](SRCH$)[171]1:SRCH$[178][201](SRCH$,LN)
2920 FX1[178]1
2930 [139][201](SRCH$,1)[179][177]"*"[167]2960
2940 LN[178][195](SRCH$)[171]1:SRCH$[178][200](SRCH$,LN)
2950 FX1[178]2
2960 [139][195](SRCH$)[177]CH(Z)[167][141]10700:[153]" (null)VALATN(null)LENLEFT$CLOSE(null)(null)(null)RIGHT$(null)CHR$CLOSE(null)(null)(null)CLOSE(null)(null)(null)CHR$":[137]5080
2970 FI[178]1:[139]Z[178]1[167]X[178]1:[137]3000
2980 SX[178]1:[129]I[178]1[164]Z[171]1:SX[178]SX[170]CH(I)[170]1:[139]I[178]1[167]SX[178]CH(1)[170]2
2990 [130]I
3000 [129]I[178]FI[164]LO:R1[178]N%(I)[170]1:[141]10080
3010 [153]" (null)ECORD #"I"WAITONON"
3020 X[178]1:O$[178]"":[141]10230:[139]O$[178]"EMPTY"[167]3100
3030 X[178]SX:O$[178]"":[141]10230
3040 [139]O$[178]SRCH$[167]3140
3050 [139]FX1[178]0[167]3100
3060 [139]FX1[178]2[167]3090:[172][172][143] CHECK FOR WILD CARD MATCH**
3070 [139]SRCH$[178][201](O$,LN)[167]3140
3080 [137]3100
3090 [139]SRCH$[178][200](O$,LN)[167]3140
3100 [130]I:[153]" "RIG$" CAN NOT BE FOUNDWAIT"
3110 Z$[178]"":[133]" (null)ANT TO TRY AGAIN ";Z$:B[178]21:[141]10480
3120 [139]Z$[178]"Y"[167]2750
3130 [137]1360
3140 ZI[178]I:[141]10700:[153]" "O$"WAIT HAS BEEN FOUND.":[141]10310
3150 [153]" (null)ECORD #"ZI"WAIT"
3160 [129]J[178]1[164]FLDS:[153]" "CH$(J)[163]PO%[170]3)OO$(J):[130]J:[141]10640
3170 [141]10700:[153]" STR$O YOU WANT TO CONTINUE THE
3180 PRINT" SEARCH FOR "RIG$" ";:INPUTZ$:B=15+LEN(RIG$):GOSUB10480
3190 IFZ$="Y"THENFI=ZI+1:GOTO2980
3200 GOTO2750
3210 GOSUB10700
3220 PRINT" [211]EARCH INSTRUCTIONS"
3230 PRINT" 1) [217]OU CAN SEARCH FOR THE STRING YOU
3240 [153]"    ARE LOOKING BY ENTERING THE EXACT
3250 PRINT"    SPELLING OF THE STRING AS IT
3260 [153]"    WAS STORED ON THE DISK.
3270 PRINT" 2) [217]OU CAN SEARCH FOR A PARTICULAR
3280 [153]"    STRING BY USING WILD CARD MATCHING."
3290 [153]"        I) (null)HEN SEARCHING FOR A STRING
3300 PRINT"    THAT STARTS WITH THE THREE LETTERS
3310 [153]"    COR YOU WOULD ENTER COR* TO FIND
3320 PRINT"    ANY STRING THAT STARTED WITH THOSE
3330 [153]"    THREE LETTERS.
3340 PRINT"        II) [193]S WELL WHEN SEARCHING FOR
3350 [153]"    A STRING ENDING WITH ARIO YOU WOULD
3360 PRINT"    ENTER *ARIO .
3370 [153]"    <<< (null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL >>>";
3380 [161]A$:[139]A$[178]""[167]3380
3390 [137]2750
3400 [143]*******************************
3410 [143]* THIS SECTION WILL SORT OUR  *
3420 [143]* SAVED DATA BY WHAT EVER     *
3430 [143]* CATAGORY CLOWN WANTS. THIS  *
3440 [143]* SORT ROUTINE USES A M/C LANG*
3450 [143]* ROUTINE CALLED ULTRASORT    *
3460 [143]* FROM COMPUTE! SEPT 1983.    *
3470 [143]* THATS WHY REL.EXPER/BOOT IS *
3480 [143]* RUN TO LOAD THIS PROG. J.R.J*
3490 [143]*******************************
3500 [141]10720:[141]10120
3510 [153]" (null)LEASE MAKE A SELECTION AS TO WHAT
3520 PRINT" CATAGORY YOU WOULD LIKE TO SORT BY;"
3530 FORI=1TOFLDS:PRINT" "I") "CH$(I):NEXT
3540 PRINT" "FLDS+1") [212][207] [210][197][211][212][193][210][212]"
3550 Z$="":INPUT" [197]NTER A NUMBER ";Z$:IFZ$=""THENPRINT"[145][145][145]":GOTO3550
3560 Z=VAL(Z$):IFZ<1ORZ>FLDS+1THENPRINT"[145][145][145]":GOTO3550
3570 IFZ=FLDS+1THEN1360
3580 GOSUB10720
3590 PRINT" [211]ORTING RECORDS BY "CH$(Z)" ....
3600 [139]Z[178]1[167]X[178]1:[137]3630
3610 SX[178]1:[129]I[178]1[164]Z[171]1:SX[178]SX[170]CH(I)[170]1:[139]I[178]1[167]SX[178]CH(1)[170]2
3620 [130]I
3630 XX[178]0:[129]I[178]1[164]LO:R1[178]N%(I)[170]1:[141]10080
3640 X[178]1:O$[178]"":[141]10230:[139]O$[178]"EMPTY"[167]3680
3650 X[178]SX:O$[178]"":[141]10230:XX[178]XX[170]1
3660 C1$[178][199](R1):C2$[178][199](R2)
3670 AA$(XX)[178]O$[170]C1$[170]C2$
3680 [130]I
3690 [139]XX[178]0[167][153]" (null)HERE ARE NO RECORDS TO SORT.WAIT":[137]4010
3700 [143] ** CALL ULTRASORT **
3710 [158]49152,XX,AA$(1)
3720 [153]" (null)VALLEN(null)(null)STR$(null)CLOSE(null)(null)(null)(null)VALSTR$"
3730 [153]" (null)EARRANGING RECORDS ..."
3740 [129]D[178]1[164]XX
3750 [143] STRIP OFF OLD POS'N INFO.
3760 C2$[178][201](AA$(D),1):LN[178][195](AA$(D))[171]1:AA$(D)[178][200](AA$(D),LN)
3770 C1$[178][201](AA$(D),1):LN[178][195](AA$(D))[171]1:AA$(D)[178][200](AA$(D),LN)
3780 G[178][198](C2$)[172]256[170][198](C1$)
3790 N%(D)[178]G[171]1:[130]D
3800 Z[178]0:[129]T[178]1[164]LO:[129]P[178]1[164]XX:[139]T[178]N%(P)[167]3820
3810 [130]P:Z[178]Z[170]1:N%(XX[170]Z)[178]T
3820 [130]T
3830 [152]1,"S: "[170]MN$[170]"/SORT KEY,S, "
3840 [159]6,8,7," "[170]MN$[170]"/SORT KEY,S,W":[141]10010
3850 [129]T[178]1[164]LO:[152]6,N%(T);R$;:[141]10010:[130]
3860 [153]" (null)(null)(null)(null)CLOSE(null)VAL(null)CLOSE(null)VAL(null)(null)RIGHT$(null)(null)VAL(null)"
3870 [160]6:[141]10640
3880 [137]1360
3890 [143] *****************************
3900 [143] ** THIS SECTION ERASES A   **
3910 [143] ** RECORD FROM THE DISK.   **
3920 [143] *****************************
3930 [141]10740:[141]10120:[141]10160
3940 W2[178]W1:W1$[178]"0":[133]" DELETE (0=QUIT) ";W1$:W1[178][197](W1$)
3950 I[178]0:[141]10560:[139]I[179][177]99[167]3970
3960 I[178]0:[141]10740:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]3940
3970 [139]W1[179][178]0[167]W1[178]W2:[137]1360
3980 R1[178]N%(W1)[170]1:[141]10080
3990 X[178]1:[141]10230:[139]O$[179][177]"EMPTY"[167]4020
4000 [141]10740:[153]" (null)ECORD # "W1"WAIT IS "O$"WAIT":W1[178]W2
4010 [141]10120:[141]10160:[137]3940
4020 [141]10740:[153]" STR$ELETE RECORD #"W1"WAIT"
4030 Z$[178]"":[133]" ATNRE YOU SURE ";Z$:B[178]16:[141]10480:[139]Z$[178]"N"[167]3930
4040 [139]Z$[178]"Q"[167]1360
4050 X[178]1:[153]" (null)KAY THEN...":O$[178]"EMPTY":[141]10270:[137]3930
4060 [143]******************************
4070 [143]* THE SECTION COPIES ONE     *
4080 [143]* ON THE PRINTER . JAM       *
4090 [143]******************************
4100 [141]10760:[141]10120:[141]10160
4110 W2[178]W1:W1$[178]"0":[133]" COPY FROM (0=QUIT) ";W1$:W1[178][197](W1$)
4120 I[178]0:[141]10560:[139]I[179][177]99[167]4140
4130 I[178]0:[141]10760:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]4110
4140 [139]W1[179][178]0[167]W1[178]W2:[137]1360
4150 R1[178]N%(W1)[170]1:[141]10080:S1[178]R1:S2[178]R2
4160 X[178]1:[141]10230:[139]O$[179][177]"EMPTY"[167]4190
4170 [141]10760:[153]" (null)ECORD # "W1"WAIT IS "O$"WAIT":W1[178]W2
4180 [141]10120:[141]10160:[137]4110
4190 [153]" ASCROM RECORD #"W1"WAIT":[141]10160
4200 W2[178]W1:W1$[178]"0":[133]" COPY TO (0=QUIT) ";W1$:W1[178][197](W1$)
4210 I[178]0:[141]10560:[139]I[179][177]99[167]4230
4220 I[178]0:[141]10760:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]4110
4230 [139]W1[179][178]0[167]W1[178]W2:[137]1360
4240 R1[178]N%(W1)[170]1:[141]10080:X1[178]R1:X2[178]R2
4250 X[178]1:[141]10230:[139]O$[178]"EMPTY"[167]4300
4260 [153]" (null)ECORD # "W1"WAIT HAS DATA IN IT.
4270 Z$="":PRINT" [196]O YOU WANT TO WRITE OVER IT ";:INPUTZ$:B=32:GOSUB10480
4280 IFZ$="Q"ORZ$="N"THENW1=W2:GOSUB10760:GOSUB10120:GOSUB10160:GOTO4110
4290 GOSUB10120:GOSUB10160:GOTO2170
4300 PRINT" [212]O RECORD #"W1"[146]"
4310 R1=S1:R2=S2:GOSUB10310:FORI=1TOFLDS:SR1$(I)=OO$(I):NEXT
4320 PRINT" [195]OPYING RECORDS.....
4330 R1[178]X1:R2[178]X2:[129]I[178]1[164]FLDS:OO$(I)[178]SR1$(I):[130]I:[141]10380
4340 [137]4100
4350 [143]******************************
4360 [143]* THE SECTION PRINTS RECORDS *
4370 [143]* ON THE PRINTER . JAM       *
4380 [143]******************************
4390 [141]10770:[141]10120:[141]10160
4400 W2[178]W1:W1$[178]"0":[133]" START PRINTING AT (0=QUIT) ";W1$:W1[178][197](W1$)
4410 I[178]0:[141]10560:[139]I[179][177]99[167]4430
4420 I[178]0:[141]10770:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]4400
4430 [139]W1[179][178]0[167]W1[178]W2:[137]1360
4440 W3[178]W1
4450 [153]" (null)TART PRINTING AT RECORD #"W1"WAIT":[141]10160
4460 W2[178]W1:W1$[178]"0":[133]" END PRINTING AT (0=QUIT) ";W1$:W1[178][197](W1$)
4470 I[178]0:[141]10560:[139]I[179][177]99[167]4490
4480 I[178]0:[141]10770:[141]10580:W1[178]W2:[141]10120:[141]10160:[137]4110
4490 [139]W1[179][178]0[167]W1[178]W2:[137]1360
4500 [153]" VALND PRINTING AT RECORD #"W1"WAIT":Z$[178]""
4510 [153]" RIGHT$S THE PRINTER AT THE TOP":[153]" OF A NEW PAGE";:[133]Z$
4520 B[178]16:[141]10480:[139]Z$[178]"N"[167]"ONONONON":[137]4520
4530 [139]Z$[178]"Q"[167]4390
4540 [141]10770
4550 Z$[178]"":[133]" (null)RINT EMPTY RECORDS TOO";Z$:B[178]26:[141]10480
4560 UP[178]0:[139]Z$[178]"Y"[167]UP[178]1
4570 Z$[178]"":[153]" VALNTER STARTING PAGE NUMBER";:[133]Z$
4580 [139]Z$[178]""[167][153]"ONONON":[137]4570
4590 [153]" (null)RINTING RECORDS...."
4600 LN[178]0:PG[178][197](Z$):[160]2:[159]5,4:[157]5:[153][199](17)
4610 [141]10800:[152]5:[160]5
4620 [129]G[178]W3[164]W1:R1[178]N%(G)[170]1:[141]10080:[159]2,8,3," "[170]NM$[170]",L,"
4630 [141]10310:[139]OO$(I)[179][177]"EMPTY"[167]L1[178]LN[170]FLDS[170]2:[137] 4650
4640 [139]UP[178]1[167]L1[178]LN[170]1[170]2
4650 [139]L1[177]63[167]L[178]66[171]LN:[141]10860:W3[178]G:PG[178]PG[170]1:Z$[178][196](PG):[137]4600
4660 [160]2:[139]UP[178]0[175]OO$(I)[178]"EMPTY"[167]4740
4670 [159]5,4:[157]5:[153][199](17);: LN[178]LN[170]2
4680 [153][166]8)"(null)VALLEN(null)(null)STR$ # "G:[153]:LN[178]LN[170]2
4690 [139]OO$(I)[178]"EMPTY"[167][153][166]8)OO$(I):LN[178]LN[170]1:[137]4730
4700 P1[178]PO%[170]9:[129]V[178]1[164]FLDS
4710 [153][166]8)CH$(V)[199](16)[199](48[170][181](P1[173]10))[199](48[170][181](P1[173]10)[172]10)OO$(V)
4720 [130]V:LN[178]LN[170]FLDS
4730 [152]5:[160]5
4740 [130]G:[159]2,8,3," "[170]NM$[170]",L,":[137]4390
4750 [143]***********************
4760 [143]* THE SECTION ADDS    *
4770 [143]* RECORDS . JAM       *
4780 [143]***********************
4790 [141]10880
4800 [153]" (null)HERE ARE "LO"WAITRECORDS CREATED":[153]" FOR "NM$"."
4810 Z$[178]"":[153]" LEFT$OW MANY MORE RECORDS DO YOU
4820 INPUT" WANT TO ADD (0=QUIT)";Z$:IF Z$=""THEN1360
4830 Z=VAL(Z$):IFZ=0THEN1360
4840 IFZ<=500-LOTHEN4860
4850 GOSUB10880:PRINT" [212]HERE IS NOT ENOUGH ROOM IN MEMORY.":GOTO4800
4860 PRINT" [195]REATING FILES....."
4870 FORT=LO+1TOLO+Z:N%(T)=T:NEXTT
4880 PRINT#1,"S: "+MN$+"/SORT KEY,S, "
4890 OPEN6,8,7," "+MN$+"/SORT KEY,S,W":FORI=1TOLO+Z
4900 PRINT#6,N%(I);R$;:NEXTI:CLOSE6
4910 CLOSE2:OPEN2,8,3," "+NM$+",L,"+CHR$(DF%):GOSUB10010
4920 W1=1:LO=LO+Z:GOSUB10190:O$="EMPTY":FORI=LO+2TOLO+Z+1:R1=I:GOSUB10080
4930 X=1:GOSUB10270:PRINT" [210][197][195][207][210][196] "I-1"[146] [195][210][197][193][212][197][196].[145][145][145]":NEXTI
4940 GOTO4790
4950 REM***********************
4960 REM* SECTION TO READ DISK*
4970 REM* DIRECTORY.JAM       *
4980 REM***********************
4990 GOSUB10900:IFPEEK(830)<>32THENGOSUB5010
5000 SYS828:GOSUB10640:OPEN1,8,15:CLOSE2:OPEN2,8,3," "+NM$:GOSUB10010:GOTO1360
5010 I=828
5020 READA:IFA=256THEN5040
5030 POKEI,A:I=I+1:GOTO5020
5040 IFPEEK(65440)=135THENPOKE924,189
5050 RETURN
5060 DATA169,1,32,195,255,169,36
5070 DATA141,240,3,169,48,141,241
5080 DATA3,169,1,162,8,160,0
5090 DATA32,186,255,169,2,162,240
5100 DATA160,3,32,189,255,32,192
5110 DATA255,169,64,32,144,255,162
5120 DATA1,32,198,255,32,144,255
5130 DATA32,207,255,32,207,255,32
5140 DATA207,255,32,207,255,201,0
5150 DATA240,58,32,204,255,32,228
5160 DATA255,201,32,208,3,32,196
5170 DATA3,162,1,32,198,255,32
5180 DATA207,255,168,32,207,255,72
5190 DATA152,170,104,32,205,221,169
5200 DATA32,32,210,255,32,207,255
5210 DATA201,0,208,8,169,13,32
5220 DATA210,255,76,115,3,32,210
5230 DATA255,76,162,3,169,1,32
5240 DATA195,255,32,204,255,169,204
5250 DATA133,178,96,32,228,255,201
5260 DATA32,208,249,96,256
10000 REM********CHECK ERROR CHANNEL***
10010 INPUT#1,E,E$,S,D:IFE<20ORE=50THENRETURN
10020 PRINT"[147]       **[212][200][197][210][197][160][201][211][160][193][160][196][201][211][203][160][197][210][210][207][210].**[146]"
10030 PRINT"       [197][210][210][207][210]"ESPC(3)E$
10040 PRINT"    [210]ECORD # "R1+256*R2"[146]"TAB(20)"[198]IELD # "I"[146]"
10050 PRINT""TAB(14)"[195]HAR POS. "X
10060 PRINT#1,"I":CLOSE2:CLOSE1
10061 PRINT" [196]O YOU WANT THE DISK DIRECTORY ";:Z$="":INPUTZ$:B=34:GOSUB10480
10062 IFZ$="Y"THENPRINT"[147]":SYS828
10063 PRINT" [208]RESS RETURN TO RESTART THE PROGRAM."
10064 GETA$:IFA$=""THEN10064
10065 IFA$<>CHR$(13)THENEND
10066 GOTO160
10070 REM*****CHANGE RECORD# FORMAT****
10080 R2=INT(R1/256):R1=R1-256*R2:RETURN
10090 REM**READ W1 AND LO FROM REC#1***
10100 PRINT#1,"P"CHR$(3+96)CHR$(1)CHR$(0)CHR$(1):GOSUB10010
10110 INPUT#2,W1,LO,W3:GOSUB10010:RETURN
10120 PRINT" [212]HE LAST RECORD WORKED ON WAS ";
10130 IFW3=0THENPRINT"NONE.":GOTO10150
10140 PRINTW1
10150 PRINT" [212]HERE ARE "LO"[146]RECORDS CREATED.":RETURN
10160 PRINT" [215]HICH RECORD WOULD YOU LIKE TO
10170 [142]
10180 [143]*****WRITE W1 AND LO**********
10190 [152]1,"P"[199](3[170]96)[199](1)[199](0)[199](1):[141]10010
10200 [152]2,W1;R$;LO;R$;W3;R$:[141]10010:[142]
10210 [143]********READ ONE WORD FROM****
10220 [143]********THE RELATIVE FILE*****
10230 [152]1,"P"[199](3[170]96)[199](R1)[199](R2)[199](X):[141]10010:O$[178]""
10240 [132]2,O$:[141]10010:[142]
10250 [143]********WRITE ONE WORD TO*****
10260 [143]********THE RELATIVE FILE*****
10270 [152]1,"P"[199](3[170]96)[199](R1)[199](R2)[199](X):[141]10010
10280 [152]2,O$;R$:[141]10010:[142]
10290 [143]********READ THE WHOLE REC.***
10300 [143]********INTO OO$( ).JAM    ***
10310 X[178]1:[129]I[178]1[164]FLDS:[152]1,"P"[199](3[170]96)[199](R1)[199](R2)[199](X):[141]10010
10320 X[178]X[170]CH(I)[170]1:[132]2,OO$(I):[141]10010:[139]OO$(I)[178]""[167]OO$(I)[178]" "
10330 [139]OO$(I)[178]"EMPTY"[167][142]
10340 [139]I[178]1[167]X[178]CH(1)[170]2
10350 [130]I:[142]
10360 [143]*****WRITE THE WHOLE REC.***
10370 [143]*****INTO OO$( ).JAM    ***
10380 X[178]1:[129]I[178]1[164]FLDS:[152]1,"P"[199](3[170]96)[199](R1)[199](R2)[199](X):[141]10010
10390 X[178]X[170]CH(I)[170]1:[152]2,OO$(I);R$:[141]10010:[139]I[178]1[167]X[178]CH(1)[170]2
10400 [130]I:[142]
10410 [143]********* PRINT HEADER *******
10420 [153]"LOAD"[199](14)"    (null)VAL(null)LEN(null)(null)VAL (null)(null) (null)VAL(null)ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null)    WAIT"
10430 [139]NM$[179][177]""[167][141]10450
10440 [142]
10450 [153]"ON    (null)VAL(null)ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VAL (null)(null)VAL(null) = "NM$:[142]
10460 [143]******** INPUT LINE **********
10470 Z$[178]"":[133]" RELATIVE FILE ";Z$:[142]
10480 [139][200](Z$,1)[178]"Y"[167][153][163]B)"ONYES":Z$[178]"Y":[142]
10490 [139][200](Z$,1)[178]"N"[167][153][163]B)"ONNO":Z$[178]"N":[142]
10500 Z$[178]"Q":[142]
10510 [161]Z$:[139]Z$[178]""[167]10510
10520 [142]
10530 [143]********* WRITE HEADER *******
10540 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)(null)RIGHT$(null)VAL (null)VALLEN(null)(null)STR$  ":[142]
10550 [143]*********RECORD EXISTS*******
10560 [139]W1[177]LO[167]I[178]99:[142]
10570 [142]
10580 [153]" *(null)(null)CLOSE(null)(null)LENLEFT$ (null)VALLEN(null)(null)STR$CLOSEVAL(null)RIGHT$(null)(null)(null)*":I[178]99:[142]
10590 [143]******** UPDATE HEADER *******
10600 [153]"LOAD  (null)VAL(null)ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)(null)STR$ATN(null)VAL (null)VALLEN(null)(null)STR$(null) ":[142]
10610 [143]********* READ  HEADER *******
10620 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VAL ASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)VALATNSTR$  (null)VALLEN(null)(null)STR$  ":[142]
10630 [143]*************PRESS ANY KEY****
10640 [153]"  <<<(null)(null)VAL(null)(null)CLOSEATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL >>>";
10650 [161]A$:[139]A$[178]""[167]10650
10660 [142]
10670 [143]**********MODIFY ME*********
10680 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): VALSTR$RIGHT$(null) (null)VALLEN(null)(null)STR$   ":[142]
10690 [143]***********SEARCH ME********
10700 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)VALATN(null)LENLEFT$ (null)VALLEN(null)(null)STR$ ":[142]
10710 [143]***********SEARCH ME********
10720 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)(null)(null)(null) (null)VALLEN(null)(null)STR$(null)  ":[142]
10730 [143]***********DELETE ME********
10740 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): STR$VAL(null)VAL(null)VAL (null)VALLEN(null)(null)STR$ ":[142]
10750 [143]***********COPY   ME********
10760 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null):  LEN(null)(null)(null)CLOSE(null)VALLEN(null)(null)STR$  ":[142]
10770 [143]***********PRINT  ME********
10780 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)(null)RIGHT$(null)(null) (null)VALLEN(null)(null)STR$(null) ":[142]
10790 [143]*******PRINTER HEADERS******
10800 [153][199](14) "         (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null)"
10810 [153]
10820 [153][199](14)"         ASCRIGHT$(null)VAL (null)ATN(null)VAL :"[199](15)NM$:LN[178]LN[170]8
10830 [153]
10840 [153][166]65)"(null)ATNCHR$VAL "PG:[142]
10850 [143]*******PRINTER RECORDS******
10860 [159]5,4:[129]M[178]1[164]L:[152]5:[130]M:[160]5:LN[178]LN[170]L:[142]
10870 [143]*******ADD RECORDS TITLE******
10880 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): ATNSTR$STR$CLOSE(null)VALLEN(null)(null)STR$(null)   ":[142]
10890 [143]*******ADD RECORDS TITLE******
10900 [153]"LOAD   (null)VAL(null)ATN(null)RIGHT$(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null): (null)VALATNSTR$CLOSESTR$RIGHT$(null)VALLEN(null)(null)(null)(null)":[142]